home *** CD-ROM | disk | FTP | other *** search
/ ADA Programming Guide / ADA Programming Guide.iso / ada_gnu / adainc / a-teioau.ads < prev    next >
Text File  |  1996-01-30  |  8KB  |  253 lines
  1. ------------------------------------------------------------------------------
  2. --                                                                          --
  3. --                         GNAT RUN-TIME COMPONENTS                         --
  4. --                                                                          --
  5. --                      A D A . T E X T _ I O . A U X                       --
  6. --                                                                          --
  7. --                                 S p e c                                  --
  8. --                                                                          --
  9. --                            $Revision: 1.19 $                             --
  10. --                                                                          --
  11. --           Copyright (c) 1992,1993,1994 NYU, All Rights Reserved          --
  12. --                                                                          --
  13. -- GNAT is free software;  you can  redistribute it  and/or modify it under --
  14. -- terms of the  GNU General Public License as published  by the Free Soft- --
  15. -- ware  Foundation;  either version 2,  or (at your option) any later ver- --
  16. -- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
  17. -- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
  18. -- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License --
  19. -- for  more details.  You should have  received  a copy of the GNU General --
  20. -- Public License  distributed with GNAT;  see file COPYING.  If not, write --
  21. -- to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. --
  22. --                                                                          --
  23. ------------------------------------------------------------------------------
  24.  
  25. with System.Unsigned_Types; use System.Unsigned_Types;
  26.  
  27. private package Ada.Text_Io.Aux is
  28.  
  29.    Standard_In  : aliased File_Type;
  30.    Standard_Out : aliased File_Type;
  31.    Standard_Err : aliased File_Type;
  32.    Current_In   : aliased File_Type;
  33.    Current_Out  : aliased File_Type;
  34.    Current_Err  : aliased File_Type;
  35.    The_File     : File_Type;
  36.  
  37.    subtype LLF is Long_Long_Float;
  38.    subtype LLI is Long_Long_Integer;
  39.    subtype LLU is Long_Long_Unsigned;
  40.  
  41.    procedure Create
  42.      (File : in out File_Type;
  43.       Mode : in File_Mode := Out_File;
  44.       Name : in String := "";
  45.       Form : in String := "");
  46.  
  47.    procedure Open
  48.      (File : in out File_Type;
  49.       Mode : in File_Mode;
  50.       Name : in String;
  51.       Form : in String := "");
  52.  
  53.    procedure Close  (File : in out File_Type);
  54.    procedure Delete (File : in out File_Type);
  55.    procedure Reset  (File : in out File_Type; Mode : in File_Mode);
  56.  
  57.    function Mode (File : in File_Type) return File_Mode;
  58.    function Name (File : in File_Type) return String;
  59.    function Form (File : in File_Type) return String;
  60.  
  61.    function Is_Open (File : in File_Type) return Boolean;
  62.  
  63.    ------------------------------------------------------
  64.    -- Control of default input, output and error files --
  65.    ------------------------------------------------------
  66.  
  67.    procedure Set_Input  (File : in File_Type);
  68.    procedure Set_Output (File : in File_Type);
  69.    procedure Set_Error (File : in File_Type);
  70.  
  71.    function Standard_Input return File_Type;
  72.    function Standard_Output return File_Type;
  73.    function Standard_Error return File_Type;
  74.  
  75.    function Current_Input return File_Type;
  76.    function Current_Output return File_Type;
  77.    function Current_Error return File_Type;
  78.  
  79.    --------------------------------------------
  80.    -- Specification of line and page lengths --
  81.    --------------------------------------------
  82.  
  83.    procedure Set_Line_Length (File : in File_Type; To : in Count);
  84.    procedure Set_Page_Length (File : in File_Type; To : in Count);
  85.  
  86.    function Line_Length (File : in File_Type) return Count;
  87.    function Page_Length (File : in File_Type) return Count;
  88.  
  89.    ------------------------------------
  90.    -- Column, Line, and Page Control --
  91.    ------------------------------------
  92.  
  93.    procedure New_Line
  94.      (File    : in File_Type;
  95.       Spacing : in Positive_Count := 1);
  96.  
  97.    procedure Skip_Line
  98.      (File    : in File_Type;
  99.       Spacing : in Positive_Count := 1);
  100.  
  101.    function End_Of_Line (File : in File_Type) return Boolean;
  102.  
  103.    procedure New_Page  (File : in File_Type);
  104.    procedure Skip_Page (File : in File_Type);
  105.  
  106.    function End_Of_Page  (File : in File_Type) return boolean;
  107.    function End_Of_File  (File : in File_Type) return boolean;
  108.  
  109.    procedure Set_Col  (File : in File_Type; To : in Positive_Count);
  110.    procedure Set_Line (File : in File_Type; To : in Positive_Count);
  111.  
  112.    function Col   (File : in File_Type) return Positive_Count;
  113.    function Line  (File : in File_Type) return Positive_Count;
  114.    function Page  (File : in File_Type) return Positive_Count;
  115.  
  116.    -----------------------------
  117.    -- Characters Input-Output --
  118.    -----------------------------
  119.  
  120.    procedure Get (Item : out Character);
  121.    procedure Put (Item : in Character);
  122.  
  123.    --------------------------
  124.    -- Strings Input-Output --
  125.    --------------------------
  126.  
  127.    procedure Get (Item : out String);
  128.    procedure Put (Item : in String);
  129.  
  130.    procedure Get_Line
  131.      (File : in File_Type;
  132.       Item : out String;
  133.       Last : out Natural);
  134.  
  135.    procedure Put_Line
  136.      (File : in File_Type;
  137.       Item : in String);
  138.  
  139.    -----------------------------------
  140.    -- Input-Output of Integer Types --
  141.    -----------------------------------
  142.  
  143.    procedure Get_Int
  144.      (Item  : out Integer;
  145.       Width : in Field := 0);
  146.  
  147.    procedure Put_Integer
  148.      (Item  : in Integer;
  149.       Width : in Field;
  150.       Base  : in Number_Base);
  151.  
  152.    procedure Put_LLI
  153.      (Item  : in LLI;
  154.       Width : in Field;
  155.       Base  : in Number_Base);
  156.  
  157.    procedure Get_LLI
  158.      (From : in  String;
  159.       Item : out LLI;
  160.       Last : out Positive;
  161.       Size : in  Positive);
  162.  
  163.    procedure Get_LLU
  164.      (From : in  String;
  165.       Item : out LLU;
  166.       Last : out Positive;
  167.       Size : in  Positive);
  168.  
  169.    procedure Put_Integer
  170.      (To   : out String;
  171.       Item : in Integer;
  172.       Base : in Number_Base);
  173.  
  174.    procedure Put_LLI
  175.      (To   : out String;
  176.       Item : in LLI;
  177.       Base : in Number_Base);
  178.  
  179.    -----------------------------------
  180.    -- Input-Output of Modular Types --
  181.    -----------------------------------
  182.  
  183.    procedure Put_Unsigned
  184.      (Item  : in Unsigned;
  185.       Width : in Field;
  186.       Base  : in Number_Base);
  187.  
  188.    procedure Put_LLU
  189.      (Item  : in LLU;
  190.       Width : in Field;
  191.       Base  : in Number_Base);
  192.  
  193.    procedure Put_Unsigned
  194.      (To   : out String;
  195.       Item : in Unsigned;
  196.       Base : in Number_Base);
  197.  
  198.    procedure Put_LLU
  199.      (To   : out String;
  200.       Item : in LLU;
  201.       Base : in Number_Base);
  202.  
  203.    -----------------------------------
  204.    -- Input-Output of Float Types   --
  205.    -----------------------------------
  206.  
  207.    procedure Get_Float
  208.      (Item : out LLF;
  209.       Width : in Field);
  210.  
  211.    procedure Put_Float
  212.      (Item : in LLF;
  213.       Fore : in Field;
  214.       Aft  : in Field;
  215.       Exp  : in Field);
  216.  
  217.    procedure Get_Float
  218.      (From : in String;
  219.       Item : out LLF;
  220.       Last : out Positive);
  221.  
  222.    procedure Put_Float
  223.      (To   : out String;
  224.       Item : in LLF;
  225.       Aft  : in Field;
  226.       Exp  : in Field);
  227.  
  228.    ---------------------------------------
  229.    -- Input-Output of Enumeration Types --
  230.    ---------------------------------------
  231.  
  232.    procedure Get_Enum
  233.      (Str : out String;
  234.       Len : out Positive);
  235.  
  236.    procedure Get_Enum
  237.      (Str  : out String;
  238.       From : in String;
  239.       Len  : out Positive;
  240.       Last : out Positive);
  241.  
  242.    procedure Put_Enum
  243.      (Item  : in String;
  244.       Width : in Field;
  245.       Set   : in Type_Set);
  246.  
  247.    procedure Put_Enum
  248.      (To   : out String;
  249.       Item : in String;
  250.       Set  : in Type_Set);
  251.  
  252. end Ada.Text_Io.Aux;
  253.